home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / CHIP Nisan 1997.iso / Oyun / WINPAC / WINPAC.INI < prev    next >
INI File  |  1997-01-29  |  2KB  |  68 lines
  1. Option Explicit
  2.  
  3. 'joystic declarations
  4. Global Const JOY_NOERROR=0
  5. Global Const MMSYSERR_NODRIVER=6
  6. Global Const JOYERR_PARMS=165
  7. Global Const JOYERR_UNPLUGGED=167
  8. Global Const JOYCAPSIZE=54
  9. Global Const JOY1=0
  10. Global Const JOY2=1
  11.  
  12. Type JoyCaps
  13. Mid As Integer              'Manufacturer ID
  14. Pid As Integer              'Product ID
  15. PName As String * 32        'Product Name
  16. XMin As Integer             'Min and Max Positions
  17. xMax As Integer
  18. YMin As Integer
  19. YMax As Integer
  20. Zmin As Integer
  21. Zmax As Integer
  22. NumButtons As Integer       'Number of Buttons
  23. PeriodMin As Integer        'Min Message Period
  24. PeriodMax As Integer        'Max Message Period
  25. End Type
  26.  
  27. Type JoyPos
  28. X As Integer                'X pos
  29. Y As Integer                'Y pos
  30. Z As Integer                'Z pos
  31. Buttons As Integer          'Button states
  32. End Type
  33.  
  34. Declare Function joyGetDevCaps% Lib "MMSystem" (ByVal JoyId%, JCaps As JoyCaps, ByVal CapSize%)
  35. Declare Function joyGetPos% Lib "MMSystem" (ByVal JoyId%, JPos As JoyPos)
  36. Declare Function JoyGetNumDevs% Lib "MMSystem" ()
  37.  
  38. Global NumJoys As Long
  39. Global JCap As JoyCaps
  40. Global JPos As JoyPos
  41. Global XMin As Long
  42. Global xMax As Long
  43. Global YMin As Long
  44. Global YMax As Long
  45. Global xPos As Long
  46. Global yPos As Long
  47.  
  48. 'BitBlt
  49. Declare Function BitBlt% Lib "GDI" (ByVal hDestDC%, ByVal dx%, ByVal dy%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal sx%, ByVal sy%, ByVal dwRop&)
  50.  
  51. 'twips crap
  52. Global TX As Integer
  53. Global TY As Integer
  54.  
  55. [Options]
  56. Center=-1
  57. Sound=-1
  58. Speed=8
  59. BrainPower=1
  60. Control1=1
  61. Control2=1
  62. Left=3520
  63. Top=2027
  64. Width=8320
  65. Height=7015
  66.  
  67.  
  68.